5/29/2018

FISHES

Load all the packages

## Warning: package 'dplyr' was built under R version 3.4.2
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## Warning: package 'tidyr' was built under R version 3.4.3

Read in that data

The data that I chose was from FigShare and can be reached at reef_fish
The data is on reef fish in Australia and New Zealand that was taken over a 3 year period. Each entry has a specific latitude and longitude that corresponds with the site and site code which I use to break up the data since it is so large (over 130,000 entries). Each entry is made by a diver who observed the fish families and counted the totals.

reef_fish <- read.csv('../data/RLSreeffishdataset.csv')

Separate the data by site

  • site CG10
CG10_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% 
  filter(SiteCode == "CG10")
## Warning: package 'bindrcpp' was built under R version 3.4.4
  • site CG11
CG11_site <- select(reef_fish, SiteCode, Diver, Family, Total) %>% 
  filter(SiteCode == "CG11") 

Facet wrap by Family

Want to see if there is a difference between what divers see at the sight

Plotting the CG10 Site by Diver

Facet Plots by family

Plotting the CG11 Site by Diver

Average Depth of Common Species

## Adding missing grouping variables: `Family`
Family CG10 CG11
Enoplosidae 33.00000 31.00000
Plesiopidae 32.12500 33.00000
Pomacentridae 32.81818 31.18182
Scorpididae 31.70000 31.00000